home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / utilities / comsuite 95 / COMMSUIT / COMPUSER.DB_ / COMPUSER.DB
Encoding:
Text File  |  1995-11-20  |  551 b   |  22 lines
  1.  
  2. Sub Main()
  3.  
  4.    Dim ReturnValue As Integer
  5.    Dim RuntimeValue As String
  6.  
  7.    Dim MySession As New Session
  8.    MySession.TypeText ""+Chr$( 3 )+""
  9.  
  10.    ReturnValue = MySession.WaitForPrompt( "ser ID: "+Chr$( 0 ), 500, 100000 )
  11.    RuntimeValue = MySession.GetRuntimeValue( DC_RV_USERID, TRUE )
  12.    MySession.TypeText RuntimeValue
  13.  
  14.    ReturnValue = MySession.WaitForPrompt( "Password: "+Chr$( 0 ), 500, 100000 )
  15.    RuntimeValue = MySession.GetRuntimeValue( DC_RV_PASSWORD, TRUE )
  16.    MySession.TypeText RuntimeValue
  17.  
  18.   Exit Sub
  19.  
  20. End Sub
  21.  
  22.